home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexMenu.tcl < prev    next >
Encoding:
Text File  |  1999-05-17  |  38.0 KB  |  1,601 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexMenu.tcl (called from latex.tcl)
  5. #
  6. # LaTeX menu definitions and key bindings
  7. #
  8. #############################################################################
  9. #
  10. # Author:  Tom Scavo <trscavo@syr.edu>, Vince Darley <darley@fas.harvard.edu>
  11. #
  12. #############################################################################
  13. #############################################################################
  14.  
  15. proc latexMenu.tcl {} {}
  16.  
  17. namespace eval TeX::sub {}
  18. namespace eval TeX::mp {}
  19.  
  20. # The highest level menu macro, to be called initially or whenever 
  21. # the LaTeX menu must be rebuilt (as in 'shadowtexSig' in latex.tcl,
  22. # or 'toggleLaTeXMenus' below): (simplified VMD July 97)
  23. proc buildLaTeXMenuQuietly {} {
  24.     global texMenu useShortLaTeXMenu useAMSLaTeX TeX::Menus
  25.     toggleAMSLaTeXmenus
  26.     TeX::sub::MathModes
  27.     
  28.     menu::buildProc texMenu buildLaTeXMenu
  29.     menu::buildSome texMenu
  30.     markMenuItem {LaTeX Utilities} {Short LaTeX Menu} $useShortLaTeXMenu
  31.     markMenuItem {LaTeX Utilities} {AMS-LaTeX} $useAMSLaTeX
  32. }
  33.  
  34. # Toggle the short menu flag and rebuild the LaTeX menu.  If the
  35. # latter operation fails, toggle the flag back to its original position.
  36. proc toggleLaTeXMenus {} {
  37.     toggleLaTeXMenuItem useShortLaTeXMenu
  38.     buildLaTeXMenuQuietly
  39. }
  40. # Toggle the AMS-LaTeX flag, reload the macros and menu, and rebuild 
  41. # the LaTeX menu.  If either of the latter two operations fail, toggle
  42. # the flag back to its original position.
  43. proc toggleAMSLaTeX {} {
  44.     global useAMSLaTeX
  45.     toggleLaTeXMenuItem useAMSLaTeX
  46.     toggleAMSLaTeXmenus
  47.     markMenuItem {LaTeX Utilities} {AMS-LaTeX} $useAMSLaTeX
  48.     menu::buildSome "Math Style" "Text Size" "Math Environments"
  49. }
  50.  
  51. proc toggleLaTeXMenuItem {flag} {
  52.     global $flag modifiedVars
  53.     set $flag [expr 1 - [set $flag]]
  54.     lappend modifiedVars $flag
  55. }
  56.  
  57. proc listToDummySubmenus {l} {
  58.     foreach i $l {
  59.     lappend ret [list Menu -n $i {}]
  60.     }
  61.     return $ret
  62. }
  63.  
  64. # Return a short menu or a long menu, depending on the value of
  65. # the global variable 'useShortLaTeXMenu':
  66. proc buildLaTeXMenu {} {
  67.     global useShortLaTeXMenu TeX::Menus texMenu
  68.     if {$useShortLaTeXMenu} {
  69.     return [list build [concat \
  70.       [listToDummySubmenus [set TeX::Menus(Top)]] \
  71.       [list "LaTeX Help"] \
  72.       {(-} \
  73.       [listToDummySubmenus [set TeX::Menus(Bottom)]] \
  74.       [listToDummySubmenus [list "Text Submenus" "Math Submenus"]] \
  75.       ] \
  76.       {TeX::mp::latex -M TeX -m} \
  77.       [concat [set TeX::Menus(Top)] [set TeX::Menus(Bottom)] \
  78.       [list "Text Submenus" "Math Submenus"]] \
  79.       $texMenu]
  80.     } else {
  81.     return [list build [concat \
  82.       [listToDummySubmenus [set TeX::Menus(Top)]] \
  83.       [list "LaTeX Help"] \
  84.       {(-} \
  85.       [listToDummySubmenus [set TeX::Menus(Bottom)]] \
  86.       {(-} \
  87.       [listToDummySubmenus [set TeX::Menus(TextSubMenus)]] \
  88.       {(-} \
  89.       [listToDummySubmenus [set TeX::Menus(MathSubMenus)]] \
  90.       ] \
  91.       {TeX::mp::latex -M TeX -m} \
  92.       [concat [set TeX::Menus(Top)] [set TeX::Menus(Bottom)] \
  93.       [set TeX::Menus(TextSubMenus)] [set TeX::Menus(MathSubMenus)]] \
  94.       $texMenu]
  95.     }
  96. } 
  97. menu::buildProc "Math Submenus" TeX::sub::Math
  98. menu::buildProc "Text Submenus" TeX::sub::Text
  99. menu::buildProc Process TeX::sub::Process
  100. menu::buildProc ProcessOpen TeX::sub::ProcessOpen
  101. proc TeX::sub::Math {} {
  102.     global TeX::Menus
  103.     return [list build \
  104.       [listToDummySubmenus [set TeX::Menus(MathSubMenus)]] \
  105.       {dummy -M TeX -m} \
  106.       [set TeX::Menus(MathSubMenus)] \
  107.       {Math Submenus}]
  108. }
  109. proc TeX::sub::Text {} {
  110.     global TeX::Menus
  111.     return [list build \
  112.       [listToDummySubmenus [set TeX::Menus(TextSubMenus)]] \
  113.       {dummy -M TeX -m} \
  114.       [set TeX::Menus(TextSubMenus)] \
  115.       {Text Submenus}]
  116. }
  117.  
  118. ensureset TeX::Menus(TextSubMenus) [list \
  119.   "Text Style" "Text Size" "Text Commands" "International" \
  120.   "Environments" "Boxes" "Miscellaneous"\
  121.   ]
  122.  
  123. ensureset TeX::Menus(Top) [list "Process" "Goto" "LaTeX Utilities"]
  124.  
  125. ensureset TeX::Menus(Bottom) [list "Documents" "Page Layout" \
  126.   "Sectioning" "Theorem"]
  127.  
  128. ensureset TeX::Menus(MathSubMenus) [list \
  129.   "Math Modes" "Math Style" "Math Environments" "Formulas" "Greek"  \
  130.   "Binary Operators" "Relations" "Arrows" "Dots" "Symbols" \
  131.   "Functions" "Large Operators" "Delimiters" "Math Accents" \
  132.   "Grouping" "Spacing" \
  133.   ]
  134.  
  135. proc TeX::mp::latex {menu item} {
  136.     switch -- $item {
  137.     {LaTeX Help}  {set func {global HOME; edit -r [file join $HOME Help "LaTeX Help"]}}
  138.     default {set func $item}
  139.     }
  140.     eval $func
  141. }
  142.  
  143. #############################################################################
  144. #
  145. # Submenu definitions
  146. #
  147. #############################################################################
  148.  
  149. # Return the "Process" submenu.  If the current document belongs
  150. # to a TeX fileset, display the base filename throughout.
  151. #
  152. proc TeX::sub::Process {{currentWin ""}} {
  153.     global mode TeXmodeVars
  154.     if {$currentWin == ""} {set currentWin [win::Current]}
  155.     if {$currentWin == ""} {
  156.     return [TeX::sub::MinimalProcess]
  157.     } elseif { $mode == "TeX" } {
  158.     set currentDoc [file tail $currentWin]
  159.     # Process an untitled window:
  160.     if { [set num [winUntitled]] } {
  161.         if { $num > 1 } { set currentDoc "Untitled$num" }
  162.         # fall through
  163.     }
  164.     } else {
  165.     return [TeX::sub::MinimalProcess]
  166.     }
  167.     set docBasename [file rootname $currentDoc]
  168.     set projBasename $docBasename
  169.     set currentProj [isWindowInFileset $currentWin "tex"]
  170.     if {    $currentProj !=    "" } {
  171.     set currentDoc [file tail [texFilesetBaseName $currentProj]]
  172.     set docBasename [file rootname $currentDoc]
  173.     }
  174.     # Determine which menu items are dimmed:
  175.     foreach ext {DVI PS AUX IDX GLO PDF Selection} { set prefix$ext "" }
  176.     set ma [list \
  177.       {Menu -n "Format" {}} \
  178.       "(-"]
  179.     if {$TeXmodeVars(runTeXInBack)} {
  180.     lappend ma [list /TBack Typeset $currentDoc] \
  181.       [list /T<U<ITypeset $currentDoc]
  182.     } else {
  183.     lappend ma [list /TTypeset $currentDoc] \
  184.       [list /T<U<IBack Typeset $currentDoc]
  185.     }
  186.     lappend ma \
  187.       [list <U<O/V${prefixDVI}View "$docBasename\.dvi"] \
  188.       [list <U<O/P${prefixDVI}Print "$docBasename\.dvi"] \
  189.       "(-" \
  190.       {<U<O/TTypeset Clipboard} \
  191.       [list ${prefixSelection}<U<I<O/TTypeset Selection] \
  192.       "(-" \
  193.       [list <S${prefixPS}Open "$docBasename\.ps"] \
  194.       [list <S${prefixDVI}dvips "$docBasename\.dvi"] \
  195.       [list ${prefixPS}View "$docBasename\.ps"] \
  196.       [list ${prefixPS}Print "$docBasename\.ps"] \
  197.       [list ${prefixPDF}View "$docBasename\.pdf"] \
  198.       "(-" \
  199.       [list <SOpen "$docBasename\.bbl"] \
  200.       [list <S${prefixAUX}bibtex "$docBasename\.aux"] \
  201.       [list <E<SOpen "$docBasename\.ind"] \
  202.       [list <S${prefixIDX}makeindex "$docBasename\.idx"] \
  203.       [list <E<SOpen "$docBasename\.glo"] \
  204.       [list <S${prefixGLO}makeglossary "$docBasename\.glo"] \
  205.       "(-" \
  206.       {Menu -n "Open…" {}} \
  207.       "(-" \
  208.       {Remove Auxiliary Files…} \
  209.       {Remove Temporary Files}
  210.     return [list build $ma {TeX::mp::Processmenu -M TeX -m} \
  211.       {Format ProcessOpen}]
  212. }
  213.  
  214. proc TeX::sub::MinimalProcess {} {
  215.     set ma [list \
  216.       [list /TTypeset…] \
  217.       "(-" \
  218.       {<U<O/TTypeset Clipboard} \
  219.       {Typeset Selection} \
  220.       ]
  221.     return [list build $ma {TeX::mp::Processmenu -M TeX -m}]
  222. }
  223. # Return a submenu of LaTeX formats:
  224.  
  225. set "menu::proc(Format)" TeX::Format
  226. set "menu::otherflags(Format)" {-M TeX -m}
  227. set "menu::items(Format)" {
  228.     "LaTeX"
  229.     "Big-LaTeX"
  230.     "AMS-TeX"
  231.     "Plain TeX"
  232. }
  233.  
  234. # Return a submenu of LaTeX auxiliary files with basename $basename1,
  235. # except for the .aux file whose primary basename is $basename2.
  236. #
  237.  
  238. proc TeX::sub::ProcessOpen {} {
  239.     set currentWin [win::Current]
  240.     set currentDoc [file tail $currentWin]
  241.     set docBasename [file rootname $currentDoc]
  242.     set projBasename $docBasename
  243.     set currentProj [isWindowInFileset $currentWin "tex"]
  244.     if {$currentProj !=    ""} {
  245.     set currentDoc [file tail [texFilesetBaseName $currentProj]]
  246.     set docBasename [file rootname $currentDoc]
  247.     }
  248.     set ma [list \
  249.       [list "$docBasename\.log"] \
  250.       [list "<S$docBasename\.aux"] \
  251.       [list "<S$projBasename\.aux"] \
  252.       [list "$docBasename\.toc"] \
  253.       [list "$docBasename\.lof"] \
  254.       [list "$docBasename\.lot"] \
  255.       [list "$docBasename\.idx"] \
  256.       [list "$docBasename\.ind"] \
  257.       [list "$docBasename\.bbl"] \
  258.       "(-" \
  259.       [list "$docBasename\.blg"] \
  260.       [list "$docBasename\.ilg"] \
  261.       "(-" \
  262.       {<U<O/OAny TeX File…} \
  263.       ]
  264.     return [list build $ma {TeX::mp::Processmenu -M TeX -m} \
  265.       "" {Open…}]
  266.     ]
  267. }
  268. proc TeX::mp::Processmenu {submenu item} {
  269.     switch -regexp -- $item {
  270.     {Typeset Selection}  {set func "typesetSelection"}
  271.     {Typeset Clipboard}  {set func "typesetClipboard"}
  272.     "Back\ Typeset.*"    {set func "typeset 1"}
  273.     "Typeset.*"  {set func "typeset"}
  274.     "View.*\.dvi$"  {set func {doTypesetCommand view DVI}}
  275.     "Print.*\.dvi$"  {set func {doTypesetCommand print DVI}}
  276.     "dvips.*\.dvi$"  {set func {doTypesetCommand dvips DVI}}
  277.     "View.*\.ps$"  {set func {doTypesetCommand view PS}}
  278.     "View.*\.pdf$"  {set func {doTypesetCommand view PDF}}
  279.     "Print.*\.ps$"  {set func {doTypesetCommand print PS}}
  280.     "bibtex.*"  {set func {doTypesetCommand bibtex AUX}}
  281.     "makeindex.*"  {set func {doTypesetCommand makeindex IDX}}
  282.     "makeglossary.*"  {set func {doTypesetCommand makeindex GLO}}
  283.     ".*\.ps$"  {set func {doTypesetCommand open PS}}
  284.     ".*\.bbl$"  {set func {doTypesetCommand open BBL}}
  285.     ".*\.ind$"  {set func {doTypesetCommand open IND}}
  286.     ".*\.log$"  {set func {doTypesetCommand open LOG}}
  287.     ".*\.aux$"  {set func {doTypesetCommand open AUX 1}}
  288.     ".*\.aux $"  {set func {doTypesetCommand open AUX}}
  289.     ".*\.toc$"  {set func {doTypesetCommand open TOC}}
  290.     ".*\.lof$"  {set func {doTypesetCommand open LOF}}
  291.     ".*\.lot$"  {set func {doTypesetCommand open LOT}}
  292.     ".*\.idx$"  {set func {doTypesetCommand open IDX}}
  293.     ".*\.ind$"  {set func {doTypesetCommand open IND}}
  294.     ".*\.blg$"  {set func {doTypesetCommand open BLG}}
  295.     ".*\.ilg$"  {set func {doTypesetCommand open ILG}}
  296.     ".*\.glo$"  {set func {doTypesetCommand open GLO}}
  297.     {Any TeX File}  {set func "openAnyTeXFile"}
  298.     {Remove Auxiliary Files}  {set func "removeAuxiliaryFiles"}
  299.     {Remove Temporary Files}  {set func "removeTemporaryFiles"}
  300.     default {set func $item}
  301.     }
  302.     eval $func
  303. }
  304.  
  305. # Return the "Goto" submenu:
  306. set menu::proc(Goto) TeX::mp::goto
  307. set menu::otherflags(Goto) {-M TeX -m}
  308. set menu::items(Goto) {
  309.     "<U/SLaTeX"
  310.     "BibTeX"
  311.     "MakeIndex"
  312.     "(-"
  313.     {Next Template Stop}
  314.     {Prev Template Stop}
  315.     "(-"
  316.     {Next Command}
  317.     {Prev Command}
  318.     {Next Command Select}
  319.     {Prev Command Select}
  320.     {Next Command Select With Args}
  321.     {Prev Command Select With Args}
  322.     "(-"
  323.     {Next Environment}
  324.     {Prev Environment}
  325.     {Next Environment Select}
  326.     {Prev Environment Select}
  327.     "(-"
  328.     {Next Section}
  329.     {Prev Section}
  330.     {Next Section Select}
  331.     {Prev Section Select}
  332.     {Next Subsection}
  333.     {Prev Subsection}
  334.     {Next Subsection Select}
  335.     {Prev Subsection Select}
  336. }
  337.  
  338. proc TeX::mp::goto {submenu item} {
  339.     switch -- $item {
  340.     "LaTeX"  {set func "texApp TeX"}
  341.     "BibTeX" - "MakeIndex" {set func "texApp $item"}
  342.     {Next Template Stop}  {set func "ring::+"}
  343.     {Prev Template Stop}  {set func "ring::-"}
  344.     {Next Command}  {set func "nextCommand"}
  345.     {Prev Command}  {set func "prevCommand"}
  346.     {Next Command Select}  {set func "nextCommandSelect"}
  347.     {Prev Command Select}  {set func "prevCommandSelect"}
  348.     {Next Command Select With Args}  {set func "nextCommandSelectWithArgs"}
  349.     {Prev Command Select With Args}  {set func "prevCommandSelectWithArgs"}
  350.     {Next Environment}  {set func "nextEnvironment"}
  351.     {Prev Environment}  {set func "prevEnvironment"}
  352.     {Next Environment Select}  {set func "nextEnvironmentSelect"}
  353.     {Prev Environment Select}  {set func "prevEnvironmentSelect"}
  354.     {Next Section}  {set func "nextSection"}
  355.     {Prev Section}  {set func "prevSection"}
  356.     {Next Section Select}  {set func "nextSectionSelect"}
  357.     {Prev Section Select}  {set func "prevSectionSelect"}
  358.     {Next Subsection}  {set func "nextSubsection"}
  359.     {Prev Subsection}  {set func "prevSubsection"}
  360.     {Next Subsection Select}  {set func "nextSubsectionSelect"}
  361.     {Prev Subsection Select}  {set func "prevSubsectionSelect"}
  362.     default {set func $item}
  363.     }
  364.     eval $func
  365. }
  366.  
  367. # Return the "LaTeX Utilities" submenu:
  368.  
  369. set "menu::proc(LaTeX Utilities)" TeX::mp::latexUtils
  370. set "menu::otherflags(LaTeX Utilities)" {-M TeX -m}
  371. set "menu::items(LaTeX Utilities)" {
  372.     {Delete Template Stops}
  373.     {Delete Comments}
  374.     "(-"
  375.     {Convert Quotes}
  376.     {Convert Dollar Signs}
  377.     "(-"
  378.     {Short LaTeX Menu}
  379.     {AMS-LaTeX}
  380. }
  381. #        {<U<O/CChoose Command…}
  382. #        "(-"
  383.  
  384. proc TeX::mp::latexUtils {submenu item} {
  385.     switch -- $item {
  386.     {Choose Command}  {set func {chooseCommand [getLaTeXMenu]}}
  387.     {Insert Reference}  {set func "insertReference"}
  388.     {Delete Template Stops}  {set func "ring::clear"}
  389.     {Delete Comments}  {set func "deleteComments"}
  390.     {Convert Quotes}  {set func "convertQuotes"}
  391.     {Convert Dollar Signs}  {set func "convertDollarSigns"}
  392.     {Short LaTeX Menu}  {set func "toggleLaTeXMenus"}
  393.     {AMS-LaTeX}  {set func "toggleAMSLaTeX"}
  394.     default {set func "TeX::[join $item {}]"}
  395.     }
  396.     eval $func
  397. }
  398.  
  399. # Return the "Documents" submenu:
  400. set "menu::proc(Documents)" TeX::mp::documents
  401. set "menu::otherflags(Documents)" {-M TeX -m}
  402. set "menu::items(Documents)" [list \
  403.   {<U<O/NNew Document…} \
  404.   {Menu -n "Insert Document" {}} \
  405.   "(-" \
  406.   "options…" \
  407.   "<B<I/Uusepackage" \
  408.   {Menu -n "Packages" {}} \
  409.   "(-" \
  410.   "filecontents…" \
  411.   {filecontents All} \
  412.   "(-" \
  413.   {Rebuild Documents Submenu} \
  414.   ]
  415. set menu::which_subs(Documents) [list "Insert Document" "Packages"]
  416. menu::buildProc Packages TeX::sub::Packages
  417.  
  418. set "menu::proc(Insert Document)" TeX::mp::documents
  419. set "menu::otherflags(Insert Document)" {-M TeX -m}
  420. set "menu::items(Insert Document)" {
  421.     "article"
  422.     "report"
  423.     "book"
  424.     "letter"
  425.     "slides"
  426.     "other…"
  427. }
  428.  
  429.  
  430. proc TeX::mp::documents {submenu item} {
  431.     switch -- $item {
  432.     {New Document}  {set func "newLaTeXDocument"}
  433.     {article}  {set func "articleDocumentclass"}
  434.     {report}  {set func "reportDocumentclass"}
  435.     {book}  {set func "bookDocumentclass"}
  436.     {letter}  {set func "letterDocumentclass"}
  437.     {slides}  {set func "slidesDocumentclass"}
  438.     {other}  {set func "otherDocumentclass"}
  439.     {usepackage} {insertPackage ""; return}
  440.     {filecontents All} {set func "filecontentsAll"}
  441.     {Rebuild Documents Submenu}  {
  442.         global packagesSubmenuItems
  443.         set packagesSubmenuItems ""
  444.         message "Rebuilding the Documents submenu…"
  445.         menu::buildSome Documents
  446.         message ""
  447.         return
  448.     }
  449.     default {set func $item}
  450.     }
  451.     eval $func
  452. }
  453. proc TeX::sub::Packages {} {
  454.     global TeXmodeVars
  455.     if { $TeXmodeVars(buildPkgsSubmenu) } {
  456.     global packagesSubmenuItems
  457.     if { ![info exists packagesSubmenuItems] || $packagesSubmenuItems == "" } {
  458.         global latexPackages
  459.         set folders [buildTeXSearchPath 0]
  460.         set packagesSubmenuItems \
  461.           [menu::buildHierarchy $folders "Packages" TeX::mp::package latexPackages ".sty"]
  462.     }
  463.     return $packagesSubmenuItems
  464.     } else {
  465.     catch {unset packagesSubmenuItems}
  466.     return ""
  467.     }
  468. }
  469. proc TeX::mp::package {submenu pkgName} {
  470.     global latexPackages
  471.     # See latexMacros.tcl for definition of 'insertPackage':
  472.     insertPackage [file tail [file rootname $latexPackages([file join $submenu $pkgName])]]
  473. }
  474.  
  475. # Return the "Page Layout" submenu:
  476.  
  477. set "menu::otherflags(Page Layout)" {-M TeX -m}
  478. set "menu::items(Page Layout)"  {
  479.     "maketitle"
  480.     "(-"
  481.     "abstract"
  482.     "titlepage"
  483.     "(-"
  484.     "pagestyle…"
  485.     "thispagestyle…"
  486.     "pagenumbering…"
  487.     "(-"
  488.     "twocolumn"
  489.     "onecolumn"
  490. }
  491.  
  492.  
  493. # Return the "Sectioning" submenu:
  494.  
  495. set menu::proc(Sectioning) TeX::mp::sectioning
  496. set menu::otherflags(Sectioning) {-M TeX -m}
  497.  
  498. # need to integrate these two
  499. set menu::items(Sectioning) {
  500.     "<Spart"
  501.     "<S<Upart*"
  502.     "<Spart with label"
  503.     "<E<Schapter"
  504.     "<S<Uchapter*"
  505.     "<Schapter with label"
  506.     "<E<Ssection"
  507.     "<S<Usection*"
  508.     "<Ssection with label"
  509.     "<E<Ssubsection"
  510.     "<S<Usubsection*"
  511.     "<Ssubsection with label"
  512.     "<E<Ssubsubsection"
  513.     "<S<Usubsubsection*"
  514.     "<Ssubsubsection with label"
  515.     "<E<Sparagraph"
  516.     "<S<Uparagraph*"
  517.     "<Sparagraph with label"
  518.     "<E<Ssubparagraph"
  519.     "<S<Usubparagraph*"
  520.     "<Ssubparagraph with label"
  521.     "(-"
  522.     "appendix"
  523. }
  524.  
  525. proc TeX::mp::sectioning {submenu item} {
  526.     if {[regexp (part|chapter|section|paragraph) $item]} {
  527.     eval sectioning $item
  528.     } else {
  529.     eval $item
  530.     }
  531. }
  532. proc TeX::mp::sectioning {submenu item} {
  533.     if {$item == "appendix"}  {
  534.     appendix
  535.     } else {
  536.     switch -- $item {
  537.         {part with label}  {
  538.         set secName "part"
  539.         set secLabel "part."
  540.         }
  541.         {chapter with label}  {
  542.         set secName "chapter"
  543.         set secLabel "chap."
  544.         }
  545.         {section with label}  {
  546.         set secName "section"
  547.         set secLabel "sec."
  548.         }
  549.         {subsection with label}  {
  550.         set secName "subsection"
  551.         set secLabel "subsec."
  552.         }
  553.         {subsubsection with label}  {
  554.         set secName "subsubsection"
  555.         set secLabel "subsubsec."
  556.         }
  557.         {paragraph with label}  {
  558.         set secName "paragraph"
  559.         set secLabel "par."
  560.         }
  561.         {subparagraph with label}  {
  562.         set secName "subparagraph"
  563.         set secLabel "subpar."
  564.         }
  565.         default {
  566.         set secName  $item
  567.         set secLabel ""
  568.         }
  569.     }
  570.     append leftWrap [openingCarriageReturn] \
  571.       "\\${secName}\{"
  572.     if {$secLabel == ""} {
  573.         append rightWrap "\}\r"
  574.     } else {
  575.         append rightWrap "\}\\label\{" $secLabel "••\}\r"
  576.     }
  577.     #if [regexp (part|chapter) $item] {
  578.     #    append rightWrap "\\thispagestyle{empty}\r"
  579.     #}
  580.     append rightWrap "••" [closingCarriageReturn]
  581.     if {$secLabel == ""} {
  582.         if [elec::Wrap $leftWrap $rightWrap] {
  583.         message "sectioning done" 
  584.         } else { 
  585.         message "enter the $secName" 
  586.         }
  587.     } else {
  588.         if [elec::Wrap $leftWrap $rightWrap] {
  589.         message "enter the label" 
  590.         } else { 
  591.         message "enter the $secName, press <tab>, enter the label" 
  592.         }
  593.     }
  594.     }
  595. }
  596.  
  597. # Return the "Text Style" submenu:
  598. set "menu::otherflags(Text Style)" {-M TeX -m}
  599. set "menu::items(Text Style)"  {
  600.     "<S<B<I/Eemph"
  601.     "<S<U<B<I/Eem"
  602.     "<B<O/Uunderline"
  603.     "(-"
  604.     "<Supshape"
  605.     "<Stextup"
  606.     "<E<S<B<I/Itextit"
  607.     "<S<U<B<I/Iitshape"
  608.     "<E<S<B<I/Stextsl"
  609.     "<S<U<B<I/Sslshape"
  610.     "<E<S<B<I/Htextsc"
  611.     "<S<U<B<I/Hscshape"
  612.     "(-"
  613.     "<Smdseries"
  614.     "<Stextmd"
  615.     "<E<S<B<I/Btextbf"
  616.     "<S<U<B<I/Bbfseries"
  617.     "(-"
  618.     "<S<B<I/Rtextrm"
  619.     "<S<U<B<I/Rrmfamily"
  620.     "<E<S<B<I/Wtextsf"
  621.     "<S<U<B<I/Wsffamily"
  622.     "<E<S<B<I/Ytexttt"
  623.     "<S<U<B<I/Yttfamily"
  624.     "(-"
  625.     "<Snormalfont"
  626.     "<Stextnormal"
  627. }
  628.  
  629.  
  630. # Return the "Text Size" submenu:
  631. proc TeX::mp::textSize {menu item} {
  632.     doTextSize $item
  633. }
  634.  
  635. proc TeX::mp::textCommands {menu item} {
  636.     insertObject "\\${item}"
  637. }
  638. set "menu::proc(Text Commands)" TeX::mp::textCommands
  639. set "menu::otherflags(Text Commands)" {-M TeX -m}
  640. set "menu::items(Text Commands)" {
  641.     "textsuperscript"
  642.     "textcircled"
  643.     "(-"
  644.     "textcompwordmark"
  645.     "textvisiblespace"
  646.     "(-"
  647.     "!—textemdash"
  648.     "!–textendash"
  649.     "!¡textexclamdown"
  650.     "!¿textquestiondown"
  651.     "!“textquotedblleft"
  652.     "!”textquotedblright"
  653.     "!‘textquoteleft"
  654.     "!’textquoteright"
  655.     "(-"
  656.     "textbullet"
  657.     "textperiodcentered"
  658.     "(-"
  659.     "textbackslash"
  660.     "textbar"
  661.     "textless"
  662.     "textgreater"
  663.     "(-"
  664.     "textasciicircum"
  665.     "textasciitilde"
  666.     "(-"
  667.     "textregistered"
  668.     "texttrademark"
  669. }
  670.  
  671. # Return the "International" submenu:
  672. set menu::proc(International) TeX::mp::internat
  673. set menu::otherflags(International) {-M TeX -m}
  674. set menu::items(International) {
  675.     {ò}
  676.     {ó}
  677.     {ô}
  678.     {ö}
  679.     {õ}
  680.     "(-"
  681.     {ç}
  682.     {œ}
  683.     {æ}
  684.     {å}
  685.     {ø}
  686.     "(-"
  687.     {Ç}
  688.     {Œ}
  689.     {Æ}
  690.     {Å}
  691.     {Ø}
  692.     "(-"
  693.     ss
  694.     SS
  695.     "(-"
  696.     {¿}
  697.     {¡}
  698. }
  699. proc TeX::mp::internat {menu item} {
  700.     $item
  701. }
  702.  
  703. # Return the "Environments" submenu:
  704.  
  705. set menu::proc(Environments) TeX::mp::envs
  706. set menu::otherflags(Environments) {-M TeX -m}
  707. set menu::items(Environments) {
  708.     "<I/kitemize…"
  709.     "<U<I/kenumerate…"
  710.     "<B<I/kdescription…"
  711.     "thebibliography…"
  712.     "(-"
  713.     "<I/lslide"
  714.     "<U<I/loverlay"
  715.     "<B<I/lnote"
  716.     "(-"
  717.     "<I/mfigure"
  718.     "<U<I/mtable"
  719.     "<B<I/mtabular…"
  720.     "(-"
  721.     "<I/nverbatim"
  722.     "<U<I/nquote"
  723.     "<B<I/nquotation"
  724.     "verse"
  725.     "(-"
  726.     "<I/ocenter"
  727.     "<U<I/oflushleft"
  728.     "<B<I/oflushright"
  729.     "(-"
  730.     {<U<O/EChoose Environment…}
  731. }
  732. proc TeX::mp::envs {submenu item} {
  733.     switch -- $item {
  734.     {Choose Environment}  {set func chooseEnvironment}
  735.     default {set func $item}
  736.     }
  737.     eval $func
  738. }
  739.  
  740. # Return the "Boxes" submenu:
  741.  
  742. set "menu::otherflags(Boxes)" {-M TeX -m}
  743. set "menu::items(Boxes)"  {
  744.     "<B<I/Mmbox"
  745.     "makebox"
  746.     "fbox"
  747.     "framebox"
  748.     "(-"
  749.     "newsavebox"
  750.     "sbox"
  751.     "savebox"
  752.     "usebox"
  753.     "(-"
  754.     "raisebox"
  755.     "(-"
  756.     "parbox"
  757.     "minipage"
  758.     "(-"
  759.     "rule"
  760. }
  761.  
  762. # Return the "Miscellaneous" submenu:
  763. set menu::proc(Miscellaneous) TeX::mp::misc
  764. set menu::otherflags(Miscellaneous) {-M TeX -m}
  765. set menu::items(Miscellaneous) {
  766.     "<B<I/Vverb"
  767.     "<B<I/Ffootnote"
  768.     {<B<I/Nmarginal note}
  769.     "(-"
  770.     "<B<I/Llabel"
  771.     "<B<I/Xref"
  772.     "eqref"
  773.     "<B<I/Ppageref"
  774.     "<B<I/Ccite"
  775.     "<U<B<I/Cnocite"
  776.     "(-"
  777.     "<B<I/Jitem"
  778.     "(-"
  779.     "<B<I/'quotes"
  780.     {<U<B<I/'double quotes}
  781.     "(-"
  782.     {TeX logo}
  783.     {LaTeX logo}
  784.     {LaTeX2e logo}
  785.     "date"
  786.     "(-"
  787.     "!†dag"
  788.     "ddag"
  789.     {!§section mark}
  790.     {!¶paragraph mark}
  791.     "!©copyright"
  792.     "!£pounds"
  793. }
  794. proc TeX::mp::misc {submenu item} {
  795.     switch -- $item {
  796.     {marginal note}  {set func "marginalNote"}
  797.     "item" {set func "insertItem"}
  798.     "label" {set func "insertLabel"}
  799.     {double quotes}  {set func "dblQuotes"}
  800.     {TeX logo}  {set func "texLogo"}
  801.     {LaTeX logo}  {set func "latexLogo"}
  802.     {LaTeX2e logo}  {set func "latex2eLogo"}
  803.     "date" {set func "today"}
  804.     {section mark}  {set func "sectionMark"}
  805.     {paragraph mark}  {set func "paragraphMark"}
  806.     default {set func $item}
  807.     }
  808.     eval $func
  809. }
  810.  
  811. # Return a "Math Modes" submenu (called below and in latexKeys.tcl):
  812. set "menu::proc(Math Modes)" TeX::mp::mathModes
  813. set "menu::otherflags(Math Modes)" {-M TeX -m}
  814. proc TeX::sub::MathModes {} {
  815.     global TeXmodeVars menu::items
  816.     if {$TeXmodeVars(useDollarSigns)} {
  817.     Bind '4' <zc> texMath "TeX"
  818.     Bind '4' <zoc> texDisplaymath "TeX"
  819.     set "menu::items(Math Modes)" {
  820.         {<B<O/MTeX math}
  821.         {<B<I<O/MTeX displaymath}
  822.         "(-"
  823.         {LaTeX math}
  824.         {LaTeX displaymath}
  825.     }
  826.     } else {
  827.     Bind '4' <zc> latexMath "TeX"
  828.     Bind '4' <zoc> latexDisplaymath "TeX"
  829.     set "menu::items(Math Modes)" {
  830.         {TeX math}
  831.         {TeX displaymath}
  832.         "(-"
  833.         {<B<O/MLaTeX math}
  834.         {<B<I<O/MLaTeX displaymath}
  835.     }
  836.     }
  837. }
  838. proc TeX::mp::mathModes {submenu item} {
  839.     switch -- $item {
  840.     {TeX math}  {set func "texMath"}
  841.     {TeX displaymath}  {set func "texDisplaymath"}
  842.     {LaTeX math}  {set func "latexMath"}
  843.     {LaTeX displaymath}  {set func "latexDisplaymath"}
  844.     default {set func $item}
  845.     }
  846.     eval $func
  847. }
  848.  
  849. proc TeX::mp::mathStyle {submenu item} {
  850.     switch -- $item {
  851.     mathbb {doUppercaseMathStyle mathbb "math blackboard bold"}
  852.     mathfrak {doMathStyle mathfrak "math fraktur"}
  853.     mathit {doMathStyle mathit "math italic"}
  854.     mathrm {doMathStyle mathrm "math roman"}
  855.     mathbf {doMathStyle mathbf "math bold"}
  856.     mathsf {doMathStyle mathsf "math sans serif"}
  857.     mathtt {doMathStyle mathtt "math typewriter"}
  858.     mathcal {doUppercaseMathStyle mathcal "math calligraphic"}
  859.     displaystyle {doMathStyle displaystyle "display style"}
  860.     textstyle {doMathStyle textstyle "text style"}
  861.     scriptstyle {doMathStyle scriptstyle "script style"}
  862.     scriptscriptstyle {doMathStyle scriptscriptstyle "scriptscript style"}
  863.     }
  864. }
  865.  
  866. # Return the "Math Style" submenu:
  867. set "menu::proc(Math Style)" TeX::mp::mathStyle
  868. set "menu::otherflags(Math Style)" {-M TeX -m}
  869. set "menu::proc(Text Size)" TeX::mp::textSize
  870. set "menu::otherflags(Text Size)" {-M TeX -m}
  871. proc toggleAMSLaTeXmenus {} {
  872.     global useAMSLaTeX menu::items
  873.     if { $useAMSLaTeX } {
  874.     set "menu::items(Math Style)" {
  875.         "<B<I<O/Imathit"
  876.         "<B<I<O/Rmathrm"
  877.         "<B<I<O/Bmathbf"
  878.         "<B<I<O/Wmathsf"
  879.         "<B<I<O/Ymathtt"
  880.         "<B<I<O/Cmathcal"
  881.         "(-"
  882.         "<B<I<O/Zmathbb"
  883.         "mathfrak"
  884.         "(-"
  885.         "<B<I<O/Ddisplaystyle"
  886.         "<B<I<O/Ttextstyle"
  887.         "<B<I<O/Sscriptstyle"
  888.         "scriptscriptstyle"
  889.     }
  890.     set "menu::items(Text Size)" {
  891.         "<B<I/1Tiny"
  892.         "<B<I/2tiny"
  893.         "<B<I/3SMALL"
  894.         "<B<I/4Small"
  895.         "<B<I/5small"
  896.         "normalsize"
  897.         "<B<I/6large"
  898.         "<B<I/7Large"
  899.         "<B<I/8LARGE"
  900.         "<B<I/9huge"
  901.         "<B<I/0Huge"
  902.     }
  903.     set "menu::items(Math Environments)" {
  904.         "<I/imath"
  905.         "(-"
  906.         "<S<B/iequation*"
  907.         "<S<I<B/iequation"
  908.         "subequations"
  909.         "(-"
  910.         "<S<B/jalign*…"
  911.         "<S<B<I/jalign…"
  912.         "<E<Sflalign…"
  913.         "<Sflalign*…"
  914.         "<E<Salignat…"
  915.         "<Salignat*…"
  916.         "<E<S<U/jgather*…"
  917.         "<S<I<U/jgather…"
  918.         "<E<S<B<U/jmultline*…"
  919.         "<S<I<B<U/jmultline…"
  920.         "(-"
  921.         "gathered…"
  922.         "aligned…"
  923.         "alignedat…"
  924.         "split…"
  925.         "cases…"
  926.         "(-"
  927.         "array…"
  928.         "subarray…"
  929.         "matrix…"
  930.         "pmatrix…"
  931.         "bmatrix…"
  932.         "Bmatrix…"
  933.         "vmatrix…"
  934.         "Vmatrix…"
  935.         "smallmatrix…"
  936.         "(-"
  937.         {<U<O/EChoose Environment…}
  938.     }
  939.     } else {
  940.     set "menu::items(Math Style)" {
  941.         "<B<I<O/Imathit"
  942.         "<B<I<O/Rmathrm"
  943.         "<B<I<O/Bmathbf"
  944.         "<B<I<O/Wmathsf"
  945.         "<B<I<O/Ymathtt"
  946.         "<B<I<O/Cmathcal"
  947.         "(-"
  948.         "<B<I<O/Ddisplaystyle"
  949.         "<B<I<O/Ttextstyle"
  950.         "<B<I<O/Sscriptstyle"
  951.         "scriptscriptstyle"
  952.     }
  953.     set "menu::items(Text Size)" {
  954.         "<B<I/1tiny"
  955.         "<B<I/2scriptsize"
  956.         "<B<I/3footnotesize"
  957.         "<B<I/4small"
  958.         "<B<I/5normalsize"
  959.         "<B<I/6large"
  960.         "<B<I/7Large"
  961.         "<B<I/8LARGE"
  962.         "<B<I/9huge"
  963.         "<B<I/0Huge"
  964.     }
  965.     set "menu::items(Math Environments)" {
  966.         "<I/imath"
  967.         "(-"
  968.         "<U<I/idisplaymath"
  969.         "<B<I/iequation"
  970.         "(-"
  971.         "<B<I/jeqnarray…"
  972.         "<U<I/jeqnarray*…"
  973.         "(-"
  974.         "<I/jarray…"
  975.         "(-"
  976.         {<U<O/EChoose Environment…}
  977.     }
  978.     }
  979. }
  980.  
  981. # Return the "Math Environments" submenu:
  982. set "menu::proc(Math Environments)" TeX::mp::mathEnvs
  983. set "menu::otherflags(Math Environments)" {-M TeX -m}
  984. proc TeX::mp::mathEnvs {submenu item} {
  985.     switch -- $item {
  986.     "multline" - "multline\*" - "gather" - "gather\*" - \
  987.       "align" -  "align\*" - "flalign" - "flalign\*" - "alignat" - "alignat\*" - \
  988.       "array" - \
  989.       "eqnarray\*" - "eqnarray" - \
  990.       "split" - "aligned" - "gathered" - "alignedat" - "cases" - \
  991.       "matrix" - "pmatrix" - "bmatrix" - "Bmatrix" - "vmatrix" - "Vmatrix" - \
  992.       "smallmatrix" {
  993.         set func "TeXmathenv $item"
  994.     }
  995.     "equation" {
  996.         set func "mathEnvironment $item"
  997.     }
  998.     {Choose Environment}  {set func chooseEnvironment}
  999.     default {set func $item}
  1000.     }
  1001.     eval $func
  1002. }
  1003.  
  1004. #--------------------------------------------------------------------------
  1005. # Adding a "Theorem" submenu: many thanks to...
  1006. #
  1007. # Paul Gastin
  1008. # LIAFA
  1009. # Universite Paris 7
  1010. # 2, place Jussieu
  1011. # F-75251 Paris Cedex 05
  1012. # email : Paul.Gastin@liafa.jussieu.fr
  1013. # www : http://www.liafa.jussieu.fr/~gastin
  1014. #--------------------------------------------------------------------------
  1015.  
  1016. # Return the "Theorem" submenu:
  1017. set menu::proc(Theorem) TeX::mp::theorem
  1018. set menu::otherflags(Theorem) {-M TeX -m}
  1019. set menu::items(Theorem) {
  1020.     "<E<Sdefinition"
  1021.     "<Sdefinition with label"
  1022.     "<E<Sremark"
  1023.     "<Sremark with label"
  1024.     "(-"
  1025.     "<E<Slemma"
  1026.     "<Slemma with label"
  1027.     "<E<Sproposition"
  1028.     "<Sproposition with label"
  1029.     "<E<Stheorem"
  1030.     "<Stheorem with label"
  1031.     "<E<Scorollary"
  1032.     "<Scorollary with label"
  1033.     "(-"
  1034.     "claim"
  1035.     "<E<Sclaimno"
  1036.     "<Sclaimno with label"
  1037.     "(-"
  1038.     "proof"
  1039.     "proofof"
  1040. }
  1041.  
  1042. proc TeX::mp::theorem {submenu item} {
  1043.     if {$item == "proofof"} {
  1044.     if {[wrapStructure "\\begin\{proofof\}\{••\}" "" \
  1045.       "\\end\{proofof\}\r••"] } {
  1046.         set msgText "selection wrapped, enter ref of proofof environment"
  1047.     } else {
  1048.         set msgText "enter ref of proofof environment, press <tab>, enter the body of proofof environment"
  1049.     }
  1050.     } else {
  1051.     switch -- $item {
  1052.         {definition with label}  {
  1053.         set envName "definition"
  1054.         set envLabel "def[TeX::labelDelim]"
  1055.         }
  1056.         {remark with label}  {
  1057.         set envName "remark"
  1058.         set envLabel "rem[TeX::labelDelim]"
  1059.         }
  1060.         {lemma with label}  {
  1061.         set envName "lemma"
  1062.         set envLabel "lem[TeX::labelDelim]"
  1063.         }
  1064.         {proposition with label}  {
  1065.         set envName "proposition"
  1066.         set envLabel "prop[TeX::labelDelim]"
  1067.         }
  1068.         {theorem with label}  {
  1069.         set envName "theorem"
  1070.         set envLabel "thm[TeX::labelDelim]"
  1071.         }
  1072.         {corollary with label}  {
  1073.         set envName "corollary"
  1074.         set envLabel "cor[TeX::labelDelim]"
  1075.         }
  1076.         {claimno with label}  {
  1077.         set envName "claimno"
  1078.         set envLabel "claim[TeX::labelDelim]"
  1079.         }
  1080.         default {
  1081.         set envName  $item
  1082.         set envLabel ""
  1083.         }
  1084.     }
  1085.     if {$envLabel == ""} {
  1086.         append begStruct "\\begin\{" $envName "\}"
  1087.         append endStruct "\\end\{" $envName "\}\r••"
  1088.         if {[wrapStructure $begStruct "" $endStruct]} {
  1089.         set msgText "selection wrapped"
  1090.         } else {
  1091.         set msgText "enter the body of $envName environment"
  1092.         }
  1093.     } else {
  1094.         append begStruct "\\begin\{" $envName "\}\\label\{" $envLabel "••\}"
  1095.         append endStruct "\\end\{" $envName "\}\r••"
  1096.         if {[wrapStructure $begStruct "" $endStruct]} {
  1097.         set msgText "selection wrapped, enter the label"
  1098.         } else {
  1099.         set msgText "enter the label, press <tab>, enter the body of $envName environment"
  1100.         }
  1101.     }
  1102.     }
  1103.     message $msgText
  1104. }
  1105.  
  1106. # Return the "Formulas" submenu:
  1107. set menu::proc(Formulas) TeX::mp::formulas
  1108. set menu::otherflags(Formulas) {-M TeX -m}
  1109. set menu::items(Formulas) {
  1110.     "subscript"
  1111.     "superscript"
  1112.     "(-"
  1113.     "<B<O/Ffrac"
  1114.     {<B<O/Rsqrt}
  1115.     {nth root}
  1116.     "(-"
  1117.     {<B<O/1one parameter…}
  1118.     {<B<O/2two parameters…}
  1119. }
  1120. proc TeX::mp::formulas {submenu item} {
  1121.     switch -- $item {
  1122.     {frac}  {set func "fraction"}
  1123.     {sqrt}  {set func "squareRoot"}
  1124.     {nth root}  {set func "nthRoot"}
  1125.     {one parameter}  {set func "oneParameter"}
  1126.     {two parameters}  {set func "twoParameters"}
  1127.     default {set func $item}
  1128.     }
  1129.     eval $func
  1130. }
  1131.  
  1132. proc TeX::mp::greek {submenu item} {
  1133.     checkMathMode $item 1; insertObject "\\$item"
  1134. }
  1135.  
  1136. # Return the "Greek" submenu:
  1137. set menu::proc(Greek) TeX::mp::greek
  1138. set menu::otherflags(Greek) {-M TeX -m}
  1139. set menu::items(Greek) {
  1140.     "alpha"
  1141.     "beta"
  1142.     "<SGamma"
  1143.     "<Sgamma"
  1144.     "<E<SDelta"
  1145.     "<Sdelta"
  1146.     "epsilon"
  1147.     "zeta"
  1148.     "eta"
  1149.     "<STheta"
  1150.     "<Stheta"
  1151.     "iota"
  1152.     "kappa"
  1153.     "<SLambda"
  1154.     "<Slambda"
  1155.     "mu"
  1156.     "nu"
  1157.     "<SXi"
  1158.     "<Sxi"
  1159.     "omicron"
  1160.     "<SPi"
  1161.     "<Spi"
  1162.     "rho"
  1163.     "<SSigma"
  1164.     "<Ssigma"
  1165.     "tau"
  1166.     "<SUpsilon"
  1167.     "<Supsilon"
  1168.     "<E<SPhi"
  1169.     "<Sphi"
  1170.     "chi"
  1171.     "<SPsi"
  1172.     "<Spsi"
  1173.     "<E<SOmega"
  1174.     "<Somega"
  1175.     "(-"
  1176.     "varepsilon"
  1177.     "vartheta"
  1178.     "varpi"
  1179.     "varrho"
  1180.     "varsigma"
  1181.     "varphi"
  1182. }
  1183.  
  1184. proc TeX::mp::binaryOperators {submenu item} {
  1185.     regsub "!." $item "" item
  1186.     if {[regexp {[lr]hd$} $item]} {
  1187.     if {![TeX::RequirePackage latexsym]} {return}
  1188.     }
  1189.     checkMathMode $item 1; insertObject "\\$item"
  1190. }
  1191.  
  1192. # Return the "Binary Operators" submenu:
  1193. set "menu::proc(Binary Operators)" TeX::mp::binaryOperators
  1194. set "menu::otherflags(Binary Operators)" {-M TeX -m}
  1195. set "menu::items(Binary Operators)" {
  1196.     "/+<I<U!±pm"
  1197.     "mp"
  1198.     "times"
  1199.     "!÷div"
  1200.     "ast"
  1201.     "star"
  1202.     "circ"
  1203.     "bullet"
  1204.     "cdot"
  1205.     "cap"
  1206.     "cup"
  1207.     "uplus"
  1208.     "sqcap"
  1209.     "sqcup"
  1210.     "vee"
  1211.     "wedge"
  1212.     "setminus"
  1213.     "(-"
  1214.     "diamond"
  1215.     "bigtriangleup"
  1216.     "bigtriangledown"
  1217.     "triangleleft"
  1218.     "triangleright"
  1219.     "lhd"
  1220.     "rhd"
  1221.     "unlhd"
  1222.     "unrhd"
  1223.     "(-"
  1224.     "oplus"
  1225.     "ominus"
  1226.     "otimes"
  1227.     "oslash"
  1228.     "odot"
  1229.     "(-"
  1230.     "bigcirc"
  1231.     "dagger"
  1232.     "ddagger"
  1233.     "amalg"
  1234.     "wr"
  1235. }
  1236.  
  1237. # Return the "Relations" submenu:
  1238. set menu::proc(Relations) TeX::mp::relations
  1239. set menu::otherflags(Relations) {-M TeX -m}
  1240. set menu::items(Relations) {
  1241.     "<S!≥geq"
  1242.     "<S!≤leq"
  1243.     "<E<Ssucc"
  1244.     "<Sprec"
  1245.     "<E<Ssucceq"
  1246.     "<Spreceq"
  1247.     "<E<S!»gg"
  1248.     "<S!«ll"
  1249.     "<E<Ssupset"
  1250.     "<Ssubset"
  1251.     "<E<Ssupseteq"
  1252.     "<Ssubseteq"
  1253.     "<E<Ssqsupset"
  1254.     "<Ssqsubset"
  1255.     "<E<Ssqsupseteq"
  1256.     "<Ssqsubseteq"
  1257.     "<E<Sni"
  1258.     "<Sin"
  1259.     "<E<Sdashv"
  1260.     "<Svdash"
  1261.     "(-"
  1262.     "equiv"
  1263.     "sim"
  1264.     "simeq"
  1265.     "asymp"
  1266.     "!≈approx"
  1267.     "cong"
  1268.     "/=<I!≠neq"
  1269.     "doteq"
  1270.     "propto"
  1271.     "(-"
  1272.     "models"
  1273.     "perp"
  1274.     "mid"
  1275.     "parallel"
  1276.     "bowtie"
  1277.     "join"
  1278.     "smile"
  1279.     "frown"
  1280. }
  1281. proc TeX::mp::relations {submenu item} {
  1282.     # workaround alpha menu bug
  1283.     regsub "!." $item "" item
  1284.     if {[lsearch -exact "join sqsubset sqsupset" $item] != -1} {
  1285.     if {![TeX::RequirePackage latexsym]} {return}
  1286.     }
  1287.     checkMathMode $item 1; insertObject "\\$item"
  1288. }
  1289.  
  1290. # Return the "Arrows" submenu:
  1291. set menu::otherflags(Arrows) {-M TeX -m}
  1292. set menu::proc(Arrows) TeX::mp::arrows
  1293. set menu::items(Arrows) {
  1294.     "<SLeftarrow"
  1295.     "<Sleftarrow"
  1296.     "<E<SRightarrow"
  1297.     "<Srightarrow"
  1298.     "<E<SLeftrightarrow"
  1299.     "<Sleftrightarrow"
  1300.     "<E<SLongleftarrow"
  1301.     "<Slongleftarrow"
  1302.     "<E<SLongrightarrow"
  1303.     "<Slongrightarrow"
  1304.     "<E<SLongleftrightarrow"
  1305.     "<Slongleftrightarrow"
  1306.     "(-"
  1307.     "<SUparrow"
  1308.     "<Suparrow"
  1309.     "<E<SDownarrow"
  1310.     "<Sdownarrow"
  1311.     "<E<SUpdownarrow"
  1312.     "<Supdownarrow"
  1313.     "(-"
  1314.     "mapsto"
  1315.     "longmapsto"
  1316.     "leadsto"
  1317.     "(-"
  1318.     "leftharpoonup"
  1319.     "rightharpoonup"
  1320.     "leftharpoondown"
  1321.     "rightharpoondown"
  1322.     "rightleftharpoons"
  1323.     "hookleftarrow"
  1324.     "hookrightarrow"
  1325.     "nearrow"
  1326.     "searrow"
  1327.     "swarrow"
  1328.     "nwarrow"
  1329. }
  1330.  
  1331. proc TeX::mp::arrows {submenu item} {
  1332.     checkMathMode $item 1; insertObject "\\$item"
  1333. }
  1334.  
  1335. # Return the "Dots" submenu:
  1336. set menu::proc(Dots) TeX::mp::generalMath
  1337. set menu::otherflags(Dots) {-M TeX -m}
  1338. set menu::items(Dots) {
  1339.     "bullet"
  1340.     "cdot"
  1341.     "(-"
  1342.     "ldots"
  1343.     "cdots"
  1344.     "vdots"
  1345.     "ddots"
  1346. }
  1347.  
  1348. # Return the "Symbols" submenu:
  1349. set menu::proc(Symbols) TeX::mp::generalMath
  1350. set menu::otherflags(Symbols) {-M TeX -m}
  1351. set menu::items(Symbols) {
  1352.     "aleph"
  1353.     "hbar"
  1354.     "imath"
  1355.     "jmath"
  1356.     "ell"
  1357.     "wp"
  1358.     "Re"
  1359.     "Im"
  1360.     "mho"
  1361.     "(-"
  1362.     "angle"
  1363.     "backslash"
  1364.     "bot"
  1365.     "/0<Iemptyset"
  1366.     "exists"
  1367.     "forall"
  1368.     "!∞infty"
  1369.     "nabla"
  1370.     "!¬neg"
  1371.     "!∂partial"
  1372.     "prime"
  1373.     "!√surd"
  1374.     "top"
  1375.     "(-"
  1376.     "Box"
  1377.     "Diamond"
  1378.     "triangle"
  1379.     "clubsuit"
  1380.     "diamondsuit"
  1381.     "heartsuit"
  1382.     "spadesuit"
  1383.     "(-"
  1384.     "flat"
  1385.     "natural"
  1386.     "sharp"
  1387. }
  1388.  
  1389. proc TeX::mp::generalMath {submenu item} {
  1390.     if {[lsearch -exact "mho Box Diamond" $item] != -1} {
  1391.     if {![TeX::RequirePackage latexsym]} {return}
  1392.     }
  1393.     switch -- $item {
  1394.     "lim" - "inf" - "liminf" - "limsup" - "max" - "min" - "sup" {
  1395.         checkMathMode $item 1
  1396.         if {[elec::Wrap "\\${item}_{" "}••"]} {
  1397.         message "limit set"
  1398.         } else {
  1399.         message "enter limit"
  1400.         }
  1401.     }
  1402.     "pmod" {
  1403.         checkMathMode "pmod" 1
  1404.         if {[elec::Wrap "\\pmod{" "}••"]} {
  1405.         message "parenthesized mod set"
  1406.         } else {
  1407.         message "enter formula"
  1408.         }
  1409.     }
  1410.     "ldots" {insertObject "\\ldots"}
  1411.     default {
  1412.         checkMathMode $item 1; insertObject "\\$item"
  1413.     }
  1414.     }
  1415. }
  1416.  
  1417. # Return the "Functions" submenu:
  1418. set menu::proc(Functions) TeX::mp::generalMath
  1419. set menu::otherflags(Functions) {-M TeX -m}
  1420. set menu::items(Functions) {
  1421.     "arccos"
  1422.     "arcsin"
  1423.     "arctan"
  1424.     "arg"
  1425.     "cos"
  1426.     "cosh"
  1427.     "cot"
  1428.     "coth"
  1429.     "csc"
  1430.     "deg"
  1431.     "det"
  1432.     "dim"
  1433.     "exp"
  1434.     "gcd"
  1435.     "hom"
  1436.     "inf"
  1437.     "ker"
  1438.     "lg"
  1439.     "<B<O/Llim"
  1440.     "liminf"
  1441.     "limsup"
  1442.     "ln"
  1443.     "log"
  1444.     "max"
  1445.     "min"
  1446.     "Pr"
  1447.     "sec"
  1448.     "sin"
  1449.     "sinh"
  1450.     "sup"
  1451.     "tan"
  1452.     "tanh"
  1453.     "(-"
  1454.     "bmod"
  1455.     "pmod"
  1456. }
  1457.  
  1458. # Return the "Large Operators" submenu:
  1459. set "menu::otherflags(Large Operators)" {-M TeX -m}
  1460. set "menu::items(Large Operators)"  {
  1461.     "<B<O/Ssum"
  1462.     "<B<O/Pprod"
  1463.     "coprod"
  1464.     "<B<O/Iint"
  1465.     "oint"
  1466.     "(-"
  1467.     "bigcup"
  1468.     "bigcap"
  1469.     "bigsqcup"
  1470.     "bigvee"
  1471.     "bigwedge"
  1472.     "bigodot"
  1473.     "bigotimes"
  1474.     "bigoplus"
  1475.     "biguplus"
  1476. }
  1477.  
  1478. # Return the "Delimiters" submenu:
  1479. set menu::proc(Delimiters) TeX::mp::delimiters
  1480. set menu::otherflags(Delimiters) {-M TeX -m}
  1481. set menu::items(Delimiters) {
  1482.     "parentheses"
  1483.     "brackets"
  1484.     "braces"
  1485.     {vertical bars}
  1486.     {other delims…}
  1487.     "(-"
  1488.     {half-open interval}
  1489.     {half-closed interval}
  1490.     "(-"
  1491.     {<Smulti-line big parentheses}
  1492.     {<Sbig parentheses}
  1493.     {<E<Smulti-line big brackets}
  1494.     {<Sbig brackets}
  1495.     {<E<Smulti-line big braces}
  1496.     {<Sbig braces}
  1497.     {<E<Smulti-line big vertical bars}
  1498.     {<Sbig vertical bars}
  1499.     {<E<Sother multi-line big delims…}
  1500.     {<Sother big delims…}
  1501.     "(-"
  1502.     {<Smulti-line big left brace}
  1503.     {<Sbig left brace}
  1504.     {<E<Sother multi-line mixed big delims…}
  1505.     {<Sother mixed big delims…}
  1506. }
  1507. proc TeX::mp::delimiters {submenu item} {
  1508.     switch -- $item {
  1509.     {vertical bars}  {set func "absoluteValue"}
  1510.     {other delims}  {set func "otherDelims"}
  1511.     {half-open interval}  {set func "half-openInterval"}
  1512.     {half-closed interval}  {set func "half-closedInterval"}
  1513.     {big parentheses}  {set func "bigParens"}
  1514.     {multi-line big parentheses}  {set func "multiBigParens"}
  1515.     {big brackets}  {set func "bigBrackets"}
  1516.     {multi-line big brackets}  {set func "multiBigBrackets"}
  1517.     {big braces}  {set func "bigBraces"}
  1518.     {multi-line big braces}  {set func "multiBigBraces"}
  1519.     {big vertical bars}  {set func "bigAbsValue"}
  1520.     {multi-line big vertical bars}  {set func "multiBigAbsValue"}
  1521.     {other big delims}  {set func "otherBigDelims"}
  1522.     {other multi-line big delims}  {set func "otherMultiBigDelims"}
  1523.     {big left brace}  {set func "bigLeftBrace"}
  1524.     {multi-line big left brace}  {set func "multiBigLeftBrace"}
  1525.     {other mixed big delims}  {set func "otherMixedBigDelims"}
  1526.     {other multi-line mixed big delims}  {set func "otherMultiMixedBigDelims"}
  1527.     default {set func $item}
  1528.     }
  1529.     eval $func
  1530. }
  1531.  
  1532. # Return the "Math Accents" submenu:
  1533. set "menu::otherflags(Math Accents)" {-M TeX -m}
  1534. set "menu::items(Math Accents)"  {
  1535.     "<B<O/Aacute"
  1536.     "<B<O/Bbar"
  1537.     "breve"
  1538.     "<B<O/Ccheck"
  1539.     "<B<O/Ddot"
  1540.     "ddot"
  1541.     "<B<O/Ggrave"
  1542.     "<B<O/Hhat"
  1543.     "<B<O/Ttilde"
  1544.     "<B<O/Vvec"
  1545.     "(-"
  1546.     "widehat"
  1547.     "widetilde"
  1548.     "(-"
  1549.     "imath"
  1550.     "jmath"
  1551. }
  1552.  
  1553. # Return the "Grouping" submenu:
  1554. set "menu::otherflags(Grouping)" {-M TeX -m}
  1555. set "menu::items(Grouping)"  {
  1556.     "<B<O/Uunderline"
  1557.     "<B<O/Ooverline"
  1558.     "<B<I<O/Uunderbrace"
  1559.     "<B<I<O/Ooverbrace"
  1560.     "(-"
  1561.     "overrightarrow"
  1562.     "overleftarrow"
  1563.     "(-"
  1564.     "stackrel"
  1565. }
  1566.  
  1567. # Return the "Spacing" submenu:
  1568. set menu::proc(Spacing) TeX::mp::spacing
  1569. set menu::otherflags(Spacing) {-M TeX -m}
  1570. set menu::items(Spacing) {
  1571.     {neg thin}
  1572.     "thin"
  1573.     "medium"
  1574.     "thick"
  1575.     "(-"
  1576.     "quad"
  1577.     "qquad"
  1578.     "(-"
  1579.     "hspace"
  1580.     "vspace"
  1581.     "(-"
  1582.     "hfill"
  1583.     "vfill"
  1584.     "(-"
  1585.     "smallskip"
  1586.     "medskip"
  1587.     "bigskip"
  1588. }
  1589. proc TeX::mp::spacing {submenu item} {
  1590.     switch -- $item {
  1591.     {neg thin}  {set func "negThin"}
  1592.     default {set func $item}
  1593.     }
  1594.     eval $func
  1595. }
  1596.  
  1597.  
  1598.  
  1599.  
  1600.  
  1601.